home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / DIMAGE.SDA / DIMAGE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.7 KB  |  98 lines
  1. 10 POKE55,.:POKE56,28:CLR:Z$="U1 8 0":Z$=CHR$(.):Q$=CHR$(34):K=459:PRINT"[147][142]";
  2. 15 PRINT"PUT SOURCE DISK INTO DEVICE 8."
  3. 20 PRINT"THEN, PRESS P TO PROCEED."
  4. 25 PRINT"(PRESS A TO ABORT.)"
  5. 30 GETA$:IFA$="P"THEN45
  6. 35 IFA$="A"THEN999
  7. 40 GOTO30
  8. 45 IFGTHEN300
  9. 46 IFFTHEN275
  10. 47 OPEN15,8,15:OPEN8,8,8,"#":GOSUB900:GOSUB800
  11. 50 IFA<20THEN60
  12. 55 CLOSE8:CLOSE15:GOTO15
  13. 60 GOSUB905:CLOSE8
  14. 65 PRINT"IS THIS THE DISK THAT YOU WANT TO USE"
  15. 70 PRINT"FOR YOUR DISK IMAGE (Y/N)?"
  16. 75 GETA$:IFA$="Y"THEN90
  17. 80 IFA$="N"THENCLOSE15:PRINT"[147]";:GOTO15
  18. 85 GOTO75
  19. 90 PRINT"ONE MOMENT PLEASE...":S$=N$
  20. 95 OPEN8,8,8,"#":POKE2,228:SYS4643:CLOSE8:PRINT"[147]";
  21. 100 PRINT"PUT DESTINATION DISK 1 INTO DEVICE 8."
  22. 105 PRINT"THEN, PRESS P TO PROCEED."
  23. 110 PRINT"(PRESS A TO ABORT.)"
  24. 115 GETA$:IFA$="P"THEN130
  25. 120 IFA$="A"THEN999
  26. 125 GOTO115
  27. 130 IFFTHEN285
  28. 132 OPEN8,8,8,"#":GOSUB900:INPUT#15,A,B$,C,D
  29. 133 IFA=20ORA=21THEN140
  30. 135 IFA<20THEN195
  31. 137 GOSUB810:GOTO247
  32. 140 CLOSE8:PRINT"DISK IS UNFORMATTED.  FORMAT (Y/N)?"
  33. 145 GETA$:IFA$="Y"THEN160
  34. 150 IFA$="N"THENPRINT"[147]";:GOTO247
  35. 155 GOTO145
  36. 160 PRINT"ENTER DISK NAME (16 CHARACTERS MAX.)."
  37. 165 A$="":INPUTA$:IFA$=""THEN160
  38. 170 PRINT"ENTER DISK ID (2 CHARACTERS MAX.)."
  39. 175 B$="":INPUTB$:IFB$=""THEN170
  40. 180 PRINT"[147]FORMATTING..."
  41. 185 PRINT#15,"N0:";A$;",";B$:INPUT#15,A,B$,C,D
  42. 186 IFA=20ORA=21THENPRINT"WRITE-PROTECT NOTCH IS COVERED.":GOTO247
  43. 187 IFA>19THENPRINT"[147]";:GOTO247
  44. 190 OPEN8,8,8,"#":GOSUB900
  45. 195 GOSUB905:CLOSE8:IFN>KTHEN230
  46. 200 PRINT"NOT ENOUGH ROOM ON DISK.  DO YOU WANT TO"
  47. 205 PRINT"ERASE ALL FILES BY REFORMATTING (Y/N)?"
  48. 210 GETA$:IFA$="Y"THEN225
  49. 215 IFA$="N"THENPRINT"[147]";:GOTO247
  50. 220 GOTO210
  51. 225 PRINT#15,"N0:";N$:GOTO190
  52. 230 PRINT"OK TO USE THIS DISK (Y/N)?"
  53. 235 GETA$:IFA$="Y"THEN250
  54. 240 IFA$="N"THENPRINT"[147]";:GOTO247
  55. 245 GOTO235
  56. 247 IFGTHEN315
  57. 248 GOTO100
  58. 250 IFGTHEN320
  59. 252 F$="PART1"
  60. 255 OPEN8,8,1,F$:INPUT#15,A:IFA=63THENCLOSE8:F$=F$+"XQ":GOTO255
  61. 260 IFA=26THENPRINT"WRITE-PROTECT NOTCH IS COVERED.":CLOSE8:GOTO100
  62. 265 PRINT"ONE MOMENT PLEASE...":D$=N$
  63. 270 POKE2,228:SYS4787:CLOSE8:PRINT"[147]";:F=1:GOTO15
  64. 275 OPEN8,8,8,"#":GOSUB900:GOSUB905
  65. 276 IFN$<>S$THENGOSUB700:GOTO15
  66. 277 PRINT"ONE MOMENT PLEASE..."
  67. 280 POKE2,228:SYS4650:CLOSE8:PRINT"[147]";:GOTO100
  68. 285 OPEN8,8,8,"#":GOSUB900:GOSUB905
  69. 286 IFN$<>D$THENGOSUB700:GOTO100
  70. 287 PRINT"ONE MOMENT PLEASE..."
  71. 290 CLOSE8:OPEN8,8,8,F$+",A"
  72. 295 POKE2,228:SYS4787:CLOSE8:G=1:PRINT"[147]";:GOTO15
  73. 300 OPEN8,8,8,"#":GOSUB900:GOSUB905
  74. 302 IFN$<>S$THENGOSUB700:GOTO15
  75. 305 PRINT"ONE MOMENT PLEASE..."
  76. 310 POKE2,227:SYS4650:CLOSE8:F=0:K=228:PRINT"[147]";
  77. 315 PRINT"PUT DESTINATION DISK 2 INTO DEVICE 8.":GOTO105
  78. 320 F$="PART2"
  79. 325 OPEN8,8,1,F$:INPUT#15,A:IFA=63THENCLOSE8:F$=F$+"XQ":GOTO325
  80. 330 IFA=26THENPRINT"WRITE-PROTECT NOTCH IS COVERED.":CLOSE8:GOTO315
  81. 335 PRINT"ONE MOMENT PLEASE..."
  82. 340 POKE2,227:SYS4787:CLOSE8:PRINT"...DONE":GOTO999
  83. 700 CLOSE8:PRINT"[147]WRONG DISK![146]";:RETURN
  84. 800 INPUT#15,A,B$,C,D
  85. 805 IFA<20THENRETURN
  86. 810 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,D
  87. 815 RETURN
  88. 900 PRINT#15,"U1";8;0;18;0:RETURN
  89. 905 PRINT#15,"B-P";8;144
  90. 910 N$="":PRINT"[147]0 ";Q$;:FORI=0TO15:GET#8,A$:PRINTA$;:IFA$<>"[160]"THENN$=N$+A$
  91. 915 NEXT:PRINTQ$;:GET#8,A$:FORI=0TO5:GET#8,A$:PRINTA$;:NEXT
  92. 920 PRINT#15,"M-R";CHR$(250);CHR$(2);CHR$(3)
  93. 925 GET#15,A$:GET#15,B$:GET#15,B$
  94. 930 N=ASC(A$+Z$)+256*ASC(B$+Z$)
  95. 935 PRINT:PRINT"[157]";N;"BLOCKS FREE."
  96. 940 RETURN
  97. 999 CLOSE15:CLOSE8:POKE56,160:END
  98.